home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1984 January to June
/
Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64
/
dynamic power2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
524b
|
16 lines
6000 rem--ahoy--mar issue--dynamic power2--prog page 47
60001 printchr$(147)"enter starting, ending line number:":inputs,e
60002 ifs>60000ore>60000ore<sors<0ore<0then60001
60003 input"increment lines by";in:x=s
60004 printchr$(147);"data";:i$=""
60005 geta$:ifa$=""thenprint"$[157]";:goto60005
60006 iflen(i$)>65anda$<>chr$(13)anda$<>chr$(20)then60005
60007 ifa$=chr$(20)andlen(i$)=0then60005
60008 printa$;:ifa$=chr$(20)theni$=left$(i$,len(i$)-1):goto60005
60009 ifa$=chr$(13)then60011
60010 i$=i$+a$:goto60005
60011 print"x=";x;":in=";in;":e=";e:print"goto60013":poke631,19:poke632,13
60012 poke633,13:poke634,145:poke635,145:poke636,13:poke198,6:end
60013 x=x+in:ifx>ethenend
60014 goto60004